function [E] = fcn_E_rq_fwd(eff)

E = zeros(7,7);

  E(1,1)=1;
  E(1,2)=0;
  E(1,3)=0;
  E(1,4)=0;
  E(1,5)=0;
  E(1,6)=0;
  E(1,7)=0;
  E(2,1)=0;
  E(2,2)=1;
  E(2,3)=0;
  E(2,4)=0;
  E(2,5)=0;
  E(2,6)=0;
  E(2,7)=0;
  E(3,1)=0;
  E(3,2)=0;
  E(3,3)=1;
  E(3,4)=0;
  E(3,5)=0;
  E(3,6)=0;
  E(3,7)=0;
  E(4,1)=0;
  E(4,2)=0;
  E(4,3)=0;
  E(4,4)=1;
  E(4,5)=0;
  E(4,6)=0;
  E(4,7)=0;
  E(5,1)=0;
  E(5,2)=0;
  E(5,3)=0;
  E(5,4)=0;
  E(5,5)=1;
  E(5,6)=0;
  E(5,7)=0;
  E(6,1)=0;
  E(6,2)=0;
  E(6,3)=0;
  E(6,4)=0;
  E(6,5)=0;
  E(6,6)=eff(3);
  E(6,7)=0;
  E(7,1)=0;
  E(7,2)=0;
  E(7,3)=0;
  E(7,4)=0;
  E(7,5)=0;
  E(7,6)=0;
  E(7,7)=eff(4);

 